home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / audio / deliay014 / dev / src / emultest.s < prev    next >
Text File  |  1994-10-18  |  1KB  |  57 lines
  1.  
  2.     incdir    'Include40/'
  3.     include    misc/AYPlayer.i
  4.     incdir    ''
  5. b
  6.     AYMODHEADER    EMUL,2,1
  7.     dc.w    0        ;no internal player
  8.     dc.w    creator-*
  9.     dc.w    misc-*        ;no misc info
  10.     dc.b    1-1        ;how many songs
  11.     dc.b    0        ;which should start first
  12.     dc.w    songdata-*
  13.  
  14. songdata    dc.w    name1-*
  15.     dc.w    data1-*
  16.  
  17. name1    dc.b    'Z80 Emul Debug Test',0
  18. creator    dc.b    'Patrik Rak',0
  19. misc    dc.b    'Just for checking if debug routine works',0
  20.     even
  21.     
  22. data1    dc.b    0,1,2,3        ;channel assignement
  23.     dc.w    1000        ;songlen
  24.     dc.w    100        ;fadelen
  25.     dc.w    $1234        ;faked init number
  26.     dc.w    testl-*        ;launch structure
  27.     dc.w    testb-*        ;block list
  28. testb    dc.w    49152        ;put code at address
  29.     dc.w    e-testc        ;len
  30.     dc.w    testc-*        ;take code from
  31. testl    dc.w    0        ;stack / use as EMUL_Block list terminator
  32.     dc.w    $1b        ;check if ret works
  33.     dc.w    49152        ;interrupt
  34. testc    dc.b    62,-1        ;ld a,255
  35.     dc.b    $ed,79        ;ld r,a
  36.     dc.b    62,$55        ;ld a,$55
  37.     dc.b    $ed,71        ;ld i,a
  38.     dc.b    1,$2c,$2b    ;ld bc,$2b2c
  39.     dc.b    17,$2e,$2d    ;ld de,$2d2e
  40.     dc.b    33,$2f,$2a    ;ld hl,$2a2f
  41.     dc.b    229        ;push hl
  42.     dc.b    241        ;pop af
  43.     dc.b    33,$21,$28    ;ld hl,$2821
  44.     dc.b    8        ;ex af,af'
  45.     dc.b    217        ;exx
  46.     dc.b    1,$1c,$1b    ;ld bc,$1b1c
  47.     dc.b    17,$1e,$1d    ;ld de,$1d1e
  48.     dc.b    33,$1f,$1a    ;ld hl,$1a1f
  49.     dc.b    229        ;push hl
  50.     dc.b    241        ;pop af
  51.     dc.b    33,$11,$18    ;ld hl,$1811
  52.     dc.b    221,33,$31,$38    ;ld ix,$3831
  53.     dc.b    253,33,$41,$48    ;ld iy,$4841
  54.     dc.b    $ed,0        ;no such instruction -> exception
  55.     dc.b    201        ;rts (never executed)
  56. e
  57.